;;;QQ:67762207ű00default.txt漤
[@LottoSystem_LottoItemClick]
{
#ACT
SetItemEvent 61 2 @LottoSystemItemClick

[@LottoSystemItemClick]
#IF
!Equal A9 "˲Ʊ"
#ACT
break

#IF
#ACT
return false
Mov D0 %P9           ;;Ʊк
ReadValueSql "TBL_LottoServer" "FLD_Name='Current'" "FLD_Sequence" @LottoSystemItemClick_Main

[@LottoSystemItemClick_Main()]
#ACT
Mov D1 %ARG(1)
FormatStr "FLD_MakeIdx=%s" %D0
ReadValueSql "TBL_LottoUser" %A9 "FLD_MakeIdx,FLD_Sequence,FLD_Num1,FLD_Num2,FLD_Num3,FLD_UserName" [@ScroolQuest_ItemIdxCheck]

[@ScroolQuest_ItemIdxCheck()]
#ACT
Mov D2 %ARG(1)		;FLD_MakeIdx
Mov D3 %ARG(2)		;FLD_Sequence
Mov D4 %ARG(3)		;FLD_Num1
Mov D5 %ARG(4)		;FLD_Num2
Mov D6 %ARG(5)		;FLD_Num3
Mov A0 %ARG(6)		;FLD_UserName
#IF
Dec D1 1
Equal D2 %D0		;FLD_MakeIdx
Equal D3 %D1		;FLD_SequenceڵıʾѾ
#ACT
FormatStr "FLD_Name='Lotto' and FLD_Sequence=%s" %D1
ReadValueSql "TBL_LottoServer" %A9 "FLD_Num1,FLD_Num2,FLD_Num3,FLD_UserPrice" [@ScroolQuest_RewordCheck]
break

#IF
Inc D1 1
Equal D2 %D0
Equal D3 %D1
Equal D4 100		;ƱΪ
Equal D5 100
Equal D6 100
#ACT
Mov D2 0
break
#SAY
Ʊϻû롣 \\
<ڲƱ롣/@InputLottoNumber> \

#IF
Equal D2 %D0
Equal D3 %D1
!Equal D4 100
!Equal D5 100
!Equal D6 100
#ACT
break
#SAY
<$USERNAME>ĵ<$OUTPUT(D3)>ڲƱΪ<$OUTPUT(D4)><$OUTPUT(D5)><$OUTPUT(D6)>\\
< /@exit>

#IF
#SAY
˲Ʊѹڣˡ \\
< /@exit>

[@ScroolQuest_RewordCheck()]
#ACT
Mov D7 %ARG(1)		;нĺͽ
Mov D8 %ARG(2)
Mov D9 %ARG(3)
Mov D2 %ARG(4)

#IF
!Equal D1 0
Equal A0 ""
Equal D7 %D4
Equal D8 %D5
Equal D9 %D6
#ACT
LineMsg [Grobal] "'<$USERNAME>'˵'<$OUTPUT(D1)>'ڲƱ󽱡"
FormatStr "FLD_UserName='%s',FLD_Price=%s" %USERNAME %D2
Mov A8 %A9
FormatStr "FLD_MakeIdx=%s and FLD_Sequence=%s" %D0 %D1
UpdateValueSql "TBL_LottoUser" %A9 %A8
Mov A0 %USERNAME

#IF
Equal A0 %USERNAME
Equal D7 %D4
Equal D8 %D5
Equal D9 %D6
#ACT
FormatStr "FLD_MakeIdx=%s and FLD_Sequence=%s and FLD_UserName='%s'" %D0 %D1 %A0
ReadValueSql "TBL_LottoUser" %A9 "FLD_Price" [@ScroolQuest_RewordCheck_Next]
#ELSESAY
<$USERNAME>ûн \\
< /@exit>

[@ScroolQuest_RewordCheck_Next()]
#ACT
Mov D8 %ARG(1)

#IF
Large D8 0
#SAY
<$USERNAME>˵<$OUTPUT(D1)>ڲƱ󽱡 \
<$OUTPUT(D8)>־ȡٻ־ \\
<ȡ־/@@ScroolQuest_RewordCheck_Next>
#ELSESAY
<$USERNAME>ȡл־\\
< /@exit>

[@@ScroolQuest_RewordCheck_Next]
#ACT
Mov D9 %INPUTNUM

#IF
ELarge D8 %D9
#SAY
ȡ<$OUTPUT(D9)>־ \\
< /@exit>
#ACT
Give ־ %D9
Dec D8 %D9
FormatStr "FLD_Price=%s" %D8
Mov A8 %A9
FormatStr "FLD_MakeIdx=%s and FLD_Sequence=%s and FLD_UserName='%s'" %D0 %D1 %USERNAME
UpdateValueSql "TBL_LottoUser" %A9 %A8
#ELSESAY
Ļ־ \
ʣµĻ־Ϊ<$OUTPUT(D8)>ȡٻ־ \\
<ȡ/@@ScroolQuest_RewordCheck_Next>

[@InputLottoNumber]
#ACT
Inc D2 1

#IF
Small D2 4
#SAY
ѡڲƱ<$OUTPUT(D2)>롣 \\
< 0 /@InputLottoNumberSet(0)>  , < 1 /@InputLottoNumberSet(1)>  , < 2 /@InputLottoNumberSet(2)> \
< 3 /@InputLottoNumberSet(3)>  , < 4 /@InputLottoNumberSet(4)>  , < 5 /@InputLottoNumberSet(5)> \
< 6 /@InputLottoNumberSet(6)>  , < 7 /@InputLottoNumberSet(7)>  , < 8 /@InputLottoNumberSet(8)> \
< 9 /@InputLottoNumberSet(9)>  , <10 /@InputLottoNumberSet(10)> , <11 /@InputLottoNumberSet(11)> \
<12 /@InputLottoNumberSet(12)> , <13 /@InputLottoNumberSet(13)> , <14 /@InputLottoNumberSet(14)> \\
<ѡ롣/@RandominputLottoNumberSet> \
#ELSESAY
<$USERNAME><$OUTPUT(D4)><$OUTPUT(D5)><$OUTPUT(D6)>\\
<ѡˣѺ봢浽ϵͳ/@InputLottoNumberResult_PreSet> \
<ѡš/@exit> \

[@RandominputLottoNumberSet]
#ACT
Mov D2 3
Movr D4 15
Movr D5 15
Movr D6 15
goto @InputLottoNumber

[@InputLottoNumberSet()]
#ACT
Mov D3 %ARG(1)

#IF
Equal D2 1
#ACT
Mov D4 %D3
goto @InputLottoNumber
break

#IF
Equal D2 2
#ACT
Mov D5 %D3
goto @InputLottoNumber
break

#IF
Equal D2 3
#ACT
Mov D6 %D3
goto @InputLottoNumber
break

[@InputLottoNumberResult_PreSet]
#IF
checkcmd CHECKUSERJF 10
#SAY
봢ϡ\\
< /@exit>
#ACT
ReadValueSql "TBL_LottoServer" "FLD_Name='Current'" "FLD_Sequence" @InputLottoNumberResult_PreSet_Next
#ELSESAY
Ļֲ޷ѡ봢浽ϵͳ \\
< /@exit>

[@InputLottoNumberResult_PreSet_Next()]
#ACT
Mov D1 %ARG(1)		;Ʊ
FormatStr "FLD_Name='Lotto' and FLD_Sequence=%s" %D1
ReadValueSql "TBL_LottoServer" %A9 "FLD_TotalPrice" @InputLottoNumberResult_PreSet_Next1

[@InputLottoNumberResult_PreSet_Next1()]
#IF
checkcmd CHECKUSERJF 10
#ACT
Mov D2 %ARG(1)		;صĽ

#IF
checkcmd CHECKUSERJF 10
Small D2 500
#ACT
MOV D2 500

#IF
checkcmd CHECKUSERJF 10
#ACT
actcmd SETUSERJF - 10 Ʊ
Inc D2 1
FormatStr "FLD_TotalPrice=%s" %D2
Mov A8 %A9
FormatStr "FLD_Name='Lotto' and FLD_Sequence=%s" %D1
UpdateValueSql "TBL_LottoServer" %A9 %A8 ;update tbl_lottoserver set fld_totalprice=%d2 where fld_name='lotto' and fld_sequence=%d1
SysMsg "ѽ<$OUTPUT(D1)>ڲƱн'<$OUTPUT(D4)>''<$OUTPUT(D5)>''<$OUTPUT(D6)>'浽ϵͳ"
FormatStr "FLD_Num1=%s,FLD_Num2=%s,FLD_Num3=%s" %D4 %D5 %D6	;ûд
Mov A8 %A9
FormatStr "FLD_MakeIdx=%s and FLD_Sequence=%s" %D0 %D1
UpdateValueSql "TBL_LottoUser" %A9 %A8				;Ʊдݿ
FormatStr "FLD_Name='Lotto' and FLD_Sequence=%s" %D1
ReadValueSql "TBL_LottoServer" %A9 "FLD_Num1,FLD_Num2,FLD_Num3" @InputLottoNumberResult

[@InputLottoNumberResult()]
#ACT
Mov D7 %ARG(1)
Mov D8 %ARG(2)
Mov D9 %ARG(3)
goto @InputLottoNumberResult_Num1

[@InputLottoNumberResult_Num1]
#IF	;Ʊн
Equal D4 %D7
Equal D5 %D8
Equal D6 %D9
#ACT
FormatStr "FLD_Name='Lotto' and FLD_Sequence=%s" %D1
ReadValueSql "TBL_LottoServer" %A9 "FLD_HumanCount" @InputLottoNumberResult_DB		;select fld_humancount from tbl_lottoserver where fld_name='lotto' and fld_sequence=%d1

[@InputLottoNumberResult_DB()]
#ACT
Mov D2 %ARG(1)
Inc D2 1
FormatStr "FLD_HumanCount=%s" %D2
Mov A8 %A9
FormatStr "FLD_Name='Lotto' and FLD_Sequence=%s" %D1
UpdateValueSql "TBL_LottoServer" %A9 %A8		;update tbl_lottoserver set fld_humancount=%d2 where fld_name=lotto and fld_sequence=%s
}
;;;QQ:67762207